home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD13502172001.psc / CyberCrypt Advanced / mdbMsgBox.bas < prev   
Encoding:
BASIC Source File  |  2000-12-19  |  3.1 KB  |  106 lines

  1. Attribute VB_Name = "mdbMsgBox"
  2. Public TempRootS As String
  3. Global Result As Integer
  4.  
  5. Public Enum Buttons
  6.     OKOnly = 0
  7.     OKCancel = 1
  8.     YesNo = 2
  9.     YesNoCancel = 3
  10.     RetryCancel = 4
  11.     AbortRetryIgnore = 5
  12. End Enum
  13.  
  14. Public Enum Icons
  15.     Critical = 0
  16.     Question = 1
  17.     Warning = 2
  18.     Information = 3
  19.     None = 4
  20. End Enum
  21.  
  22. Public Function MessageBox(Mensagem As String, Buttons As Buttons, Icon As Icons)
  23.     frmMessageBox.lblMessage = Mensagem
  24.     
  25.     'Erase all icons
  26.     For Index = 0 To 3
  27.         frmMessageBox.imgIcon(Index).Visible = False
  28.     Next Index
  29.     
  30.     If Icon <> None Then frmMessageBox.imgIcon(Icon).Visible = True
  31.     
  32.     'Erase all buttons
  33.     For Index = 0 To 2
  34.         frmMessageBox.PctButton(Index).Visible = False
  35.         frmMessageBox.PctButton(Index).FontBold = False
  36.     Next Index
  37.     
  38.     
  39.     If Buttons = AbortRetryIgnore Then
  40.         frmMessageBox.PctButton(0).Visible = True
  41.         frmMessageBox.PctButton(0).Caption = "Retry"
  42.         frmMessageBox.PctButton(0).FontBold = True
  43.         
  44.         frmMessageBox.PctButton(1).Visible = True
  45.         frmMessageBox.PctButton(1).Caption = "Ignore"
  46.         
  47.         frmMessageBox.PctButton(2).Visible = True
  48.         frmMessageBox.PctButton(2).Caption = "Abort"
  49.     
  50.     ElseIf Buttons = OKCancel Then
  51.         frmMessageBox.PctButton(0).Visible = True
  52.         frmMessageBox.PctButton(0).Caption = "OK"
  53.         frmMessageBox.PctButton(0).FontBold = True
  54.         
  55.         frmMessageBox.PctButton(1).Visible = True
  56.         frmMessageBox.PctButton(1).Caption = "Cancel"
  57.     
  58.     ElseIf Buttons = OKOnly Then
  59.         frmMessageBox.PctButton(0).Visible = True
  60.         frmMessageBox.PctButton(0).Caption = "OK"
  61.         frmMessageBox.PctButton(0).FontBold = True
  62.         
  63.     ElseIf Buttons = RetryCancel Then
  64.         frmMessageBox.PctButton(0).Visible = True
  65.         frmMessageBox.PctButton(0).Caption = "Retry"
  66.         frmMessageBox.PctButton(0).FontBold = True
  67.         
  68.         frmMessageBox.PctButton(1).Visible = True
  69.         frmMessageBox.PctButton(1).Caption = "Cancel"
  70.     
  71.     ElseIf Buttons = YesNoCancel Then
  72.         frmMessageBox.PctButton(0).Visible = True
  73.         frmMessageBox.PctButton(0).Caption = "Yes"
  74.         frmMessageBox.PctButton(0).FontBold = True
  75.         
  76.         frmMessageBox.PctButton(1).Visible = True
  77.         frmMessageBox.PctButton(1).Caption = "No"
  78.     
  79.         frmMessageBox.PctButton(2).Visible = True
  80.         frmMessageBox.PctButton(2).Caption = "Cancel"
  81.     
  82.     ElseIf Buttons = YesNo Then
  83.         frmMessageBox.PctButton(0).Visible = True
  84.         frmMessageBox.PctButton(0).Caption = "Yes"
  85.         frmMessageBox.PctButton(0).FontBold = True
  86.         
  87.         frmMessageBox.PctButton(1).Visible = True
  88.         frmMessageBox.PctButton(1).Caption = "No"
  89.     
  90.     End If
  91.     
  92.     frmMessageBox.Show 1
  93. End Function
  94.  
  95. Function FileExist(FileName As String) As Boolean
  96.     On Error GoTo Erro
  97.     If FileLen(FileName) <> 0 Then
  98.         FileExist = True
  99.     Else
  100.         FileExist = False
  101.     End If
  102.     Exit Function
  103. Erro:
  104.     If Err = 76 Or Err = 53 Then FileExist = False
  105. End Function
  106.